;;;; Generated on 10/01/2017 at 18:20:41 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.BLAS-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%CAXPY %CAXPY %%CCOPY %CCOPY %%CDOTC %CDOTC %%CDOTU
  %CDOTU %%CGBMV %CGBMV %%CGEMM %CGEMM %%CGEMV %CGEMV %%CGERC %CGERC %%CGERU
  %CGERU %%CHBMV %CHBMV %%CHEMM %CHEMM %%CHEMV %CHEMV %%CHER %CHER %%CHER2
  %CHER2 %%CHER2K %CHER2K %%CHERK %CHERK %%CHPMV %CHPMV %%CHPR %CHPR %%CHPR2
  %CHPR2 %%CROTG %CROTG %%CSCAL %CSCAL %%CSROT %CSROT %%CSSCAL %CSSCAL %%CSWAP
  %CSWAP %%CSYMM %CSYMM %%CSYR2K %CSYR2K %%CSYRK %CSYRK %%CTBMV %CTBMV %%CTBSV
  %CTBSV %%CTPMV %CTPMV %%CTPSV %CTPSV %%CTRMM %CTRMM %%CTRMV %CTRMV %%CTRSM
  %CTRSM %%CTRSV %CTRSV %%DASUM %DASUM %%DAXPY %DAXPY %%DCABS1 %DCABS1 %%DCOPY
  %DCOPY %%DDOT %DDOT %%DGBMV %DGBMV %%DGEMM %DGEMM %%DGEMV %DGEMV %%DGER %DGER
  %%DNRM2 %DNRM2 %%DROT %DROT %%DROTG %DROTG %%DROTM %DROTM %%DROTMG %DROTMG
  %%DSBMV %DSBMV %%DSCAL %DSCAL %%DSDOT %DSDOT %%DSPMV %DSPMV %%DSPR %DSPR
  %%DSPR2 %DSPR2 %%DSWAP %DSWAP %%DSYMM %DSYMM %%DSYMV %DSYMV %%DSYR %DSYR
  %%DSYR2 %DSYR2 %%DSYR2K %DSYR2K %%DSYRK %DSYRK %%DTBMV %DTBMV %%DTBSV %DTBSV
  %%DTPMV %DTPMV %%DTPSV %DTPSV %%DTRMM %DTRMM %%DTRMV %DTRMV %%DTRSM %DTRSM
  %%DTRSV %DTRSV %%DZASUM %DZASUM %%DZNRM2 %DZNRM2 %%ICAMAX %ICAMAX %%IDAMAX
  %IDAMAX %%ISAMAX %ISAMAX %%IZAMAX %IZAMAX %%LSAME %LSAME %%SASUM %SASUM
  %%SAXPY %SAXPY %%SCABS1 %SCABS1 %%SCASUM %SCASUM %%SCNRM2 %SCNRM2 %%SCOPY
  %SCOPY %%SDOT %SDOT %%SDSDOT %SDSDOT %%SGBMV %SGBMV %%SGEMM %SGEMM %%SGEMV
  %SGEMV %%SGER %SGER %%SNRM2 %SNRM2 %%SROT %SROT %%SROTG %SROTG %%SROTM %SROTM
  %%SROTMG %SROTMG %%SSBMV %SSBMV %%SSCAL %SSCAL %%SSPMV %SSPMV %%SSPR %SSPR
  %%SSPR2 %SSPR2 %%SSWAP %SSWAP %%SSYMM %SSYMM %%SSYMV %SSYMV %%SSYR %SSYR
  %%SSYR2 %SSYR2 %%SSYR2K %SSYR2K %%SSYRK %SSYRK %%STBMV %STBMV %%STBSV %STBSV
  %%STPMV %STPMV %%STPSV %STPSV %%STRMM %STRMM %%STRMV %STRMV %%STRSM %STRSM
  %%STRSV %STRSV %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZAXPY %ZAXPY
  %%ZCOPY %ZCOPY %%ZDOTC %ZDOTC %%ZDOTU %ZDOTU %%ZDROT %ZDROT %%ZDSCAL %ZDSCAL
  %%ZGBMV %ZGBMV %%ZGEMM %ZGEMM %%ZGEMV %ZGEMV %%ZGERC %ZGERC %%ZGERU %ZGERU
  %%ZHBMV %ZHBMV %%ZHEMM %ZHEMM %%ZHEMV %ZHEMV %%ZHER %ZHER %%ZHER2 %ZHER2
  %%ZHER2K %ZHER2K %%ZHERK %ZHERK %%ZHPMV %ZHPMV %%ZHPR %ZHPR %%ZHPR2 %ZHPR2
  %%ZROTG %ZROTG %%ZSCAL %ZSCAL %%ZSWAP %ZSWAP %%ZSYMM %ZSYMM %%ZSYR2K %ZSYR2K
  %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV
  %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV))

(CFFI:DEFCFUN ("caxpy_" %%CAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (CA :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CAXPY (N CA CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1 ':INT32)
                              (CA-REF2 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4 ':INT32) (INCY-REF6 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF2 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF6 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF3 CX) (CY-REF5 CY))
     (%%CAXPY N-REF1 CA-REF2 CX-REF3 INCX-REF4 CY-REF5 INCY-REF6))))

(CFFI:DEFCFUN ("ccopy_" %%CCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CCOPY (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7 ':INT32) (INCX-REF9 ':INT32)
                              (INCY-REF11 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF11 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF8 CX) (CY-REF10 CY))
     (%%CCOPY N-REF7 CX-REF8 INCX-REF9 CY-REF10 INCY-REF11))))

(CFFI:DEFCFUN ("cdotc_" %%CDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CDOTC (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CDOTC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12 ':INT32) (INCX-REF14 ':INT32)
                              (INCY-REF16 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF16 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF13 CX) (CY-REF15 CY))
     (%%CDOTC N-REF12 CX-REF13 INCX-REF14 CY-REF15 INCY-REF16))))

(CFFI:DEFCFUN ("cdotu_" %%CDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CDOTU (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CDOTU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17 ':INT32) (INCX-REF19 ':INT32)
                              (INCY-REF21 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF18 CX) (CY-REF20 CY))
     (%%CDOTU N-REF17 CX-REF18 INCX-REF19 CY-REF20 INCY-REF21))))

(CFFI:DEFCFUN ("cgbmv_" %%CGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23 ':INT32) (N-REF24 ':INT32)
                              (KL-REF25 ':INT32) (KU-REF26 ':INT32)
                              (ALPHA-REF27
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF29 ':INT32) (INCX-REF31 ':INT32)
                              (BETA-REF32
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF34 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF25 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF26 :INT32) KU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF27
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF29 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF31 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF32 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF34 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF28 A) (X-REF30 X) (Y-REF33 Y))
     (%%CGBMV TRANS M-REF23 N-REF24 KL-REF25 KU-REF26 ALPHA-REF27 A-REF28
      LDA-REF29 X-REF30 INCX-REF31 BETA-REF32 Y-REF33 INCY-REF34))))

(CFFI:DEFCFUN ("cgemm_" %%CGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF37 ':INT32) (N-REF38 ':INT32)
                              (K-REF39 ':INT32)
                              (ALPHA-REF40
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF42 ':INT32) (LDB-REF44 ':INT32)
                              (BETA-REF45
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF47 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF37 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF38 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF39 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF40
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF42 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF44 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF45 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF47 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF41 A) (B-REF43 B) (C-REF46 C))
     (%%CGEMM TRANSA TRANSB M-REF37 N-REF38 K-REF39 ALPHA-REF40 A-REF41
      LDA-REF42 B-REF43 LDB-REF44 BETA-REF45 C-REF46 LDC-REF47))))

(CFFI:DEFCFUN ("cgemv_" %%CGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF49 ':INT32) (N-REF50 ':INT32)
                              (ALPHA-REF51
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF53 ':INT32) (INCX-REF55 ':INT32)
                              (BETA-REF56
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF58 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF49 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF50 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF51
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF53 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF55 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF56 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF58 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF52 A) (X-REF54 X) (Y-REF57 Y))
     (%%CGEMV TRANS M-REF49 N-REF50 ALPHA-REF51 A-REF52 LDA-REF53 X-REF54
      INCX-REF55 BETA-REF56 Y-REF57 INCY-REF58))))

(CFFI:DEFCFUN ("cgerc_" %%CGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CGERC (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF59 ':INT32) (N-REF60 ':INT32)
                              (ALPHA-REF61
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF63 ':INT32) (INCY-REF65 ':INT32)
                              (LDA-REF67 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF59 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF60 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF61
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF63 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF65 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF67 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF62 X) (Y-REF64 Y) (A-REF66 A))
     (%%CGERC M-REF59 N-REF60 ALPHA-REF61 X-REF62 INCX-REF63 Y-REF64 INCY-REF65
      A-REF66 LDA-REF67))))

(CFFI:DEFCFUN ("cgeru_" %%CGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CGERU (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF68 ':INT32) (N-REF69 ':INT32)
                              (ALPHA-REF70
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF72 ':INT32) (INCY-REF74 ':INT32)
                              (LDA-REF76 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF68 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF69 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF70
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF72 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF74 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF76 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF71 X) (Y-REF73 Y) (A-REF75 A))
     (%%CGERU M-REF68 N-REF69 ALPHA-REF70 X-REF71 INCX-REF72 Y-REF73 INCY-REF74
      A-REF75 LDA-REF76))))

(CFFI:DEFCFUN ("chbmv_" %%CHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CHBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF78 ':INT32) (K-REF79 ':INT32)
                              (ALPHA-REF80
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF82 ':INT32) (INCX-REF84 ':INT32)
                              (BETA-REF85
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF87 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF78 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF79 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF80
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF82 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF84 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF85 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF87 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF81 A) (X-REF83 X) (Y-REF86 Y))
     (%%CHBMV UPLO N-REF78 K-REF79 ALPHA-REF80 A-REF81 LDA-REF82 X-REF83
      INCX-REF84 BETA-REF85 Y-REF86 INCY-REF87))))

(CFFI:DEFCFUN ("chemm_" %%CHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CHEMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF90 ':INT32) (N-REF91 ':INT32)
                              (ALPHA-REF92
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF94 ':INT32) (LDB-REF96 ':INT32)
                              (BETA-REF97
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF99 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF90 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF91 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF92
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF94 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF96 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF97 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF99 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF93 A) (B-REF95 B) (C-REF98 C))
     (%%CHEMM SIDE UPLO M-REF90 N-REF91 ALPHA-REF92 A-REF93 LDA-REF94 B-REF95
      LDB-REF96 BETA-REF97 C-REF98 LDC-REF99))))

(CFFI:DEFCFUN ("chemv_" %%CHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CHEMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF101 ':INT32)
                              (ALPHA-REF102
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF104 ':INT32) (INCX-REF106 ':INT32)
                              (BETA-REF107
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF109 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF101 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF102
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF104 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF106 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF107
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF109 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF103 A) (X-REF105 X) (Y-REF108 Y))
     (%%CHEMV UPLO N-REF101 ALPHA-REF102 A-REF103 LDA-REF104 X-REF105
      INCX-REF106 BETA-REF107 Y-REF108 INCY-REF109))))

(CFFI:DEFCFUN ("cher_" %%CHER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CHER (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHER)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF111 ':INT32) (ALPHA-REF112 ':FLOAT)
                              (INCX-REF114 ':INT32) (LDA-REF116 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF111 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF112 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF114 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF116 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF113 X) (A-REF115 A))
     (%%CHER UPLO N-REF111 ALPHA-REF112 X-REF113 INCX-REF114 A-REF115
      LDA-REF116))))

(CFFI:DEFCFUN ("cher2_" %%CHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CHER2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHER2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF118 ':INT32)
                              (ALPHA-REF119
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF121 ':INT32) (INCY-REF123 ':INT32)
                              (LDA-REF125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF118 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF119
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF121 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF123 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF125 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF120 X) (Y-REF122 Y) (A-REF124 A))
     (%%CHER2 UPLO N-REF118 ALPHA-REF119 X-REF120 INCX-REF121 Y-REF122
      INCY-REF123 A-REF124 LDA-REF125))))

(CFFI:DEFCFUN ("cher2k_" %%CHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CHER2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHER2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF128 ':INT32) (K-REF129 ':INT32)
                              (ALPHA-REF130
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF132 ':INT32) (LDB-REF134 ':INT32)
                              (BETA-REF135 ':FLOAT) (LDC-REF137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF128 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF129 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF130
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF132 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF134 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF135 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF137 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF131 A) (B-REF133 B) (C-REF136 C))
     (%%CHER2K UPLO TRANS N-REF128 K-REF129 ALPHA-REF130 A-REF131 LDA-REF132
      B-REF133 LDB-REF134 BETA-REF135 C-REF136 LDC-REF137))))

(CFFI:DEFCFUN ("cherk_" %%CHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CHERK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF140 ':INT32) (K-REF141 ':INT32)
                              (ALPHA-REF142 ':FLOAT) (LDA-REF144 ':INT32)
                              (BETA-REF145 ':FLOAT) (LDC-REF147 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF141 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF142 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF144 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF145 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF147 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF143 A) (C-REF146 C))
     (%%CHERK UPLO TRANS N-REF140 K-REF141 ALPHA-REF142 A-REF143 LDA-REF144
      BETA-REF145 C-REF146 LDC-REF147))))

(CFFI:DEFCFUN ("chpmv_" %%CHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CHPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF149 ':INT32)
                              (ALPHA-REF150
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF153 ':INT32)
                              (BETA-REF154
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF149 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF150
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF153 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF154
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF156 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((AP-REF151 AP) (X-REF152 X) (Y-REF155 Y))
     (%%CHPMV UPLO N-REF149 ALPHA-REF150 AP-REF151 X-REF152 INCX-REF153
      BETA-REF154 Y-REF155 INCY-REF156))))

(CFFI:DEFCFUN ("chpr_" %%CHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %CHPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF158 ':INT32) (ALPHA-REF159 ':FLOAT)
                              (INCX-REF161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF159 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF161 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF160 X) (AP-REF162 AP))
     (%%CHPR UPLO N-REF158 ALPHA-REF159 X-REF160 INCX-REF161 AP-REF162))))

(CFFI:DEFCFUN ("chpr2_" %%CHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %CHPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF164 ':INT32)
                              (ALPHA-REF165
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF167 ':INT32) (INCY-REF169 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF164 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF165
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF167 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF169 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF166 X) (Y-REF168 Y) (AP-REF170 AP))
     (%%CHPR2 UPLO N-REF164 ALPHA-REF165 X-REF166 INCX-REF167 Y-REF168
      INCY-REF169 AP-REF170))))

(CFFI:DEFCFUN ("crotg_" %%CROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (CA :POINTER)
  (CB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CROTG (CA CB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CROTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF171
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CB-REF172
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF173 ':FLOAT)
                              (S-REF174
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF171 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CB-REF172 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CB)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CB)))
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF173 :FLOAT) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF174 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%CROTG CA-REF171 CB-REF172 C-REF173 S-REF174))))

(CFFI:DEFCFUN ("cscal_" %%CSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (CA :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CSCAL (N CA CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF175 ':INT32)
                              (CA-REF176
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF175 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF176 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF178 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF177 CX))
     (%%CSCAL N-REF175 CA-REF176 CX-REF177 INCX-REF178))))

(CFFI:DEFCFUN ("csrot_" %%CSROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CSROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF179 ':INT32) (INCX-REF181 ':INT32)
                              (INCY-REF183 ':INT32) (C-REF184 ':FLOAT)
                              (S-REF185 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF181 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF183 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF184 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF185 :FLOAT) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF180 CX) (CY-REF182 CY))
     (%%CSROT N-REF179 CX-REF180 INCX-REF181 CY-REF182 INCY-REF183 C-REF184
      S-REF185))))

(CFFI:DEFCFUN ("csscal_" %%CSSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CSSCAL (N SA CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF186 ':INT32) (SA-REF187 ':FLOAT)
                              (INCX-REF189 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF187 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF189 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF188 CX))
     (%%CSSCAL N-REF186 SA-REF187 CX-REF188 INCX-REF189))))

(CFFI:DEFCFUN ("cswap_" %%CSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CSWAP (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF190 ':INT32) (INCX-REF192 ':INT32)
                              (INCY-REF194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF192 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF194 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF191 CX) (CY-REF193 CY))
     (%%CSWAP N-REF190 CX-REF191 INCX-REF192 CY-REF193 INCY-REF194))))

(CFFI:DEFCFUN ("csymm_" %%CSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF197 ':INT32) (N-REF198 ':INT32)
                              (ALPHA-REF199
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF201 ':INT32) (LDB-REF203 ':INT32)
                              (BETA-REF204
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF206 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF197 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF198 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF199
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF201 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF203 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF204
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF206 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF200 A) (B-REF202 B) (C-REF205 C))
     (%%CSYMM SIDE UPLO M-REF197 N-REF198 ALPHA-REF199 A-REF200 LDA-REF201
      B-REF202 LDB-REF203 BETA-REF204 C-REF205 LDC-REF206))))

(CFFI:DEFCFUN ("csyr2k_" %%CSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF209 ':INT32) (K-REF210 ':INT32)
                              (ALPHA-REF211
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF213 ':INT32) (LDB-REF215 ':INT32)
                              (BETA-REF216
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF218 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF210 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF211
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF213 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF215 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF216
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF218 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF212 A) (B-REF214 B) (C-REF217 C))
     (%%CSYR2K UPLO TRANS N-REF209 K-REF210 ALPHA-REF211 A-REF212 LDA-REF213
      B-REF214 LDB-REF215 BETA-REF216 C-REF217 LDC-REF218))))

(CFFI:DEFCFUN ("csyrk_" %%CSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF221 ':INT32) (K-REF222 ':INT32)
                              (ALPHA-REF223
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF225 ':INT32)
                              (BETA-REF226
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF221 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF222 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF223
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF225 :INT32) LDA)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF226
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF228 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF224 A) (C-REF227 C))
     (%%CSYRK UPLO TRANS N-REF221 K-REF222 ALPHA-REF223 A-REF224 LDA-REF225
      BETA-REF226 C-REF227 LDC-REF228))))

(CFFI:DEFCFUN ("ctbmv_" %%CTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF232 ':INT32) (K-REF233 ':INT32)
                              (LDA-REF235 ':INT32) (INCX-REF237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF233 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF235 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF237 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF234 A) (X-REF236 X))
     (%%CTBMV UPLO TRANS DIAG N-REF232 K-REF233 A-REF234 LDA-REF235 X-REF236
      INCX-REF237))))

(CFFI:DEFCFUN ("ctbsv_" %%CTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF241 ':INT32) (K-REF242 ':INT32)
                              (LDA-REF244 ':INT32) (INCX-REF246 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF241 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF242 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF244 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF246 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF243 A) (X-REF245 X))
     (%%CTBSV UPLO TRANS DIAG N-REF241 K-REF242 A-REF243 LDA-REF244 X-REF245
      INCX-REF246))))

(CFFI:DEFCFUN ("ctpmv_" %%CTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF250 ':INT32) (INCX-REF253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF250 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF253 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF251 AP) (X-REF252 X))
     (%%CTPMV UPLO TRANS DIAG N-REF250 AP-REF251 X-REF252 INCX-REF253))))

(CFFI:DEFCFUN ("ctpsv_" %%CTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF257 ':INT32) (INCX-REF260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF257 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF260 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF258 AP) (X-REF259 X))
     (%%CTPSV UPLO TRANS DIAG N-REF257 AP-REF258 X-REF259 INCX-REF260))))

(CFFI:DEFCFUN ("ctrmm_" %%CTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CTRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF265 ':INT32) (N-REF266 ':INT32)
                              (ALPHA-REF267
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF269 ':INT32) (LDB-REF271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF265 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF266 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF267
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF269 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF271 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF268 A) (B-REF270 B))
     (%%CTRMM SIDE UPLO TRANSA DIAG M-REF265 N-REF266 ALPHA-REF267 A-REF268
      LDA-REF269 B-REF270 LDB-REF271))))

(CFFI:DEFCFUN ("ctrmv_" %%CTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF275 ':INT32) (LDA-REF277 ':INT32)
                              (INCX-REF279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF275 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF277 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF279 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF276 A) (X-REF278 X))
     (%%CTRMV UPLO TRANS DIAG N-REF275 A-REF276 LDA-REF277 X-REF278
      INCX-REF279))))

(CFFI:DEFCFUN ("ctrsm_" %%CTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CTRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF284 ':INT32) (N-REF285 ':INT32)
                              (ALPHA-REF286
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF288 ':INT32) (LDB-REF290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF284 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF285 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF286
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF288 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF290 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF287 A) (B-REF289 B))
     (%%CTRSM SIDE UPLO TRANSA DIAG M-REF284 N-REF285 ALPHA-REF286 A-REF287
      LDA-REF288 B-REF289 LDB-REF290))))

(CFFI:DEFCFUN ("ctrsv_" %%CTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF294 ':INT32) (LDA-REF296 ':INT32)
                              (INCX-REF298 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF294 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF296 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF298 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF295 A) (X-REF297 X))
     (%%CTRSV UPLO TRANS DIAG N-REF294 A-REF295 LDA-REF296 X-REF297
      INCX-REF298))))

(CFFI:DEFCFUN ("dasum_" %%DASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DASUM (N DX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF299 ':INT32) (INCX-REF301 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF299 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF301 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF300 DX))
     (%%DASUM N-REF299 DX-REF300 INCX-REF301))))

(CFFI:DEFCFUN ("daxpy_" %%DAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DA :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DAXPY (N DA DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF302 ':INT32) (DA-REF303 ':DOUBLE)
                              (INCX-REF305 ':INT32) (INCY-REF307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF303 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF305 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF307 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF304 DX) (DY-REF306 DY))
     (%%DAXPY N-REF302 DA-REF303 DX-REF304 INCX-REF305 DY-REF306 INCY-REF307))))

(CFFI:DEFCFUN ("dcabs1_" %%DCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (Z :POINTER))

(COMMON-LISP:DEFUN %DCABS1 (Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCABS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF308
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Z-REF308 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Z)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Z)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%DCABS1 Z-REF308))))

(CFFI:DEFCFUN ("dcopy_" %%DCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DCOPY (N DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF309 ':INT32) (INCX-REF311 ':INT32)
                              (INCY-REF313 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF311 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF313 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF310 DX) (DY-REF312 DY))
     (%%DCOPY N-REF309 DX-REF310 INCX-REF311 DY-REF312 INCY-REF313))))

(CFFI:DEFCFUN ("ddot_" %%DDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DDOT (N DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF314 ':INT32) (INCX-REF316 ':INT32)
                              (INCY-REF318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF314 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF316 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF318 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF315 DX) (DY-REF317 DY))
     (%%DDOT N-REF314 DX-REF315 INCX-REF316 DY-REF317 INCY-REF318))))

(CFFI:DEFCFUN ("dgbmv_" %%DGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF320 ':INT32) (N-REF321 ':INT32)
                              (KL-REF322 ':INT32) (KU-REF323 ':INT32)
                              (ALPHA-REF324 ':DOUBLE) (LDA-REF326 ':INT32)
                              (INCX-REF328 ':INT32) (BETA-REF329 ':DOUBLE)
                              (INCY-REF331 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF320 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF322 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF323 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF324 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF326 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF328 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF329 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF331 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF325 A) (X-REF327 X) (Y-REF330 Y))
     (%%DGBMV TRANS M-REF320 N-REF321 KL-REF322 KU-REF323 ALPHA-REF324 A-REF325
      LDA-REF326 X-REF327 INCX-REF328 BETA-REF329 Y-REF330 INCY-REF331))))

(CFFI:DEFCFUN ("dgemm_" %%DGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF334 ':INT32) (N-REF335 ':INT32)
                              (K-REF336 ':INT32) (ALPHA-REF337 ':DOUBLE)
                              (LDA-REF339 ':INT32) (LDB-REF341 ':INT32)
                              (BETA-REF342 ':DOUBLE) (LDC-REF344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF334 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF335 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF336 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF337 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF339 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF341 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF342 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF344 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF338 A) (B-REF340 B) (C-REF343 C))
     (%%DGEMM TRANSA TRANSB M-REF334 N-REF335 K-REF336 ALPHA-REF337 A-REF338
      LDA-REF339 B-REF340 LDB-REF341 BETA-REF342 C-REF343 LDC-REF344))))

(CFFI:DEFCFUN ("dgemv_" %%DGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF346 ':INT32) (N-REF347 ':INT32)
                              (ALPHA-REF348 ':DOUBLE) (LDA-REF350 ':INT32)
                              (INCX-REF352 ':INT32) (BETA-REF353 ':DOUBLE)
                              (INCY-REF355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF346 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF347 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF348 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF350 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF352 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF353 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF355 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF349 A) (X-REF351 X) (Y-REF354 Y))
     (%%DGEMV TRANS M-REF346 N-REF347 ALPHA-REF348 A-REF349 LDA-REF350 X-REF351
      INCX-REF352 BETA-REF353 Y-REF354 INCY-REF355))))

(CFFI:DEFCFUN ("dger_" %%DGER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DGER (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF356 ':INT32) (N-REF357 ':INT32)
                              (ALPHA-REF358 ':DOUBLE) (INCX-REF360 ':INT32)
                              (INCY-REF362 ':INT32) (LDA-REF364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF356 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF358 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF360 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF362 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF364 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF359 X) (Y-REF361 Y) (A-REF363 A))
     (%%DGER M-REF356 N-REF357 ALPHA-REF358 X-REF359 INCX-REF360 Y-REF361
      INCY-REF362 A-REF363 LDA-REF364))))

(CFFI:DEFCFUN ("dnrm2_" %%DNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF365 ':INT32) (INCX-REF367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF367 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF366 X))
     (%%DNRM2 N-REF365 X-REF366 INCX-REF367))))

(CFFI:DEFCFUN ("drot_" %%DROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %DROT (N DX INCX DY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF368 ':INT32) (INCX-REF370 ':INT32)
                              (INCY-REF372 ':INT32) (C-REF373 ':DOUBLE)
                              (S-REF374 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF370 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF372 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF373 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF374 :DOUBLE) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF369 DX) (DY-REF371 DY))
     (%%DROT N-REF368 DX-REF369 INCX-REF370 DY-REF371 INCY-REF372 C-REF373
      S-REF374))))

(CFFI:DEFCFUN ("drotg_" %%DROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (DA :POINTER)
  (DB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %DROTG (DA DB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROTG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((DA-REF375 ':DOUBLE) (DB-REF376 ':DOUBLE)
                              (C-REF377 ':DOUBLE) (S-REF378 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF375 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DB-REF376 :DOUBLE) DB)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF377 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF378 :DOUBLE) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%DROTG DA-REF375 DB-REF376 C-REF377 S-REF378))))

(CFFI:DEFCFUN ("drotm_" %%DROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER)
  (DPARAM :POINTER))

(COMMON-LISP:DEFUN %DROTM (N DX INCX DY INCY DPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROTM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF379 ':INT32) (INCX-REF381 ':INT32)
                              (INCY-REF383 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF379 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF381 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF383 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((DX-REF380 DX) (DY-REF382 DY) (DPARAM-REF384 DPARAM))
     (%%DROTM N-REF379 DX-REF380 INCX-REF381 DY-REF382 INCY-REF383
      DPARAM-REF384))))

(CFFI:DEFCFUN ("drotmg_" %%DROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (DD1 :POINTER)
  (DD2 :POINTER)
  (DX1 :POINTER)
  (DY1 :POINTER)
  (DPARAM :POINTER))

(COMMON-LISP:DEFUN %DROTMG (DD1 DD2 DX1 DY1 DPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROTMG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DD1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DD2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DX1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DY1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((DD1-REF385 ':DOUBLE) (DD2-REF386 ':DOUBLE)
                              (DX1-REF387 ':DOUBLE) (DY1-REF388 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DD1-REF385 :DOUBLE) DD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DD2-REF386 :DOUBLE) DD2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DX1-REF387 :DOUBLE) DX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DY1-REF388 :DOUBLE) DY1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DPARAM-REF389 DPARAM))
     (%%DROTMG DD1-REF385 DD2-REF386 DX1-REF387 DY1-REF388 DPARAM-REF389))))

(CFFI:DEFCFUN ("dsbmv_" %%DSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF391 ':INT32) (K-REF392 ':INT32)
                              (ALPHA-REF393 ':DOUBLE) (LDA-REF395 ':INT32)
                              (INCX-REF397 ':INT32) (BETA-REF398 ':DOUBLE)
                              (INCY-REF400 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF392 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF393 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF395 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF397 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF398 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF400 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF394 A) (X-REF396 X) (Y-REF399 Y))
     (%%DSBMV UPLO N-REF391 K-REF392 ALPHA-REF393 A-REF394 LDA-REF395 X-REF396
      INCX-REF397 BETA-REF398 Y-REF399 INCY-REF400))))

(CFFI:DEFCFUN ("dscal_" %%DSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DA :POINTER)
  (DX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DSCAL (N DA DX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF401 ':INT32) (DA-REF402 ':DOUBLE)
                              (INCX-REF404 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF401 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF402 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF404 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF403 DX))
     (%%DSCAL N-REF401 DA-REF402 DX-REF403 INCX-REF404))))

(CFFI:DEFCFUN ("dsdot_" %%DSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSDOT (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF405 ':INT32) (INCX-REF407 ':INT32)
                              (INCY-REF409 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF405 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF407 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF409 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF406 SX) (SY-REF408 SY))
     (%%DSDOT N-REF405 SX-REF406 INCX-REF407 SY-REF408 INCY-REF409))))

(CFFI:DEFCFUN ("dspmv_" %%DSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF411 ':INT32) (ALPHA-REF412 ':DOUBLE)
                              (INCX-REF415 ':INT32) (BETA-REF416 ':DOUBLE)
                              (INCY-REF418 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF411 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF412 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF415 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF416 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF418 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((AP-REF413 AP) (X-REF414 X) (Y-REF417 Y))
     (%%DSPMV UPLO N-REF411 ALPHA-REF412 AP-REF413 X-REF414 INCX-REF415
      BETA-REF416 Y-REF417 INCY-REF418))))

(CFFI:DEFCFUN ("dspr_" %%DSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %DSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF420 ':INT32) (ALPHA-REF421 ':DOUBLE)
                              (INCX-REF423 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF420 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF421 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF423 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF422 X) (AP-REF424 AP))
     (%%DSPR UPLO N-REF420 ALPHA-REF421 X-REF422 INCX-REF423 AP-REF424))))

(CFFI:DEFCFUN ("dspr2_" %%DSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %DSPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF426 ':INT32) (ALPHA-REF427 ':DOUBLE)
                              (INCX-REF429 ':INT32) (INCY-REF431 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF427 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF429 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF431 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF428 X) (Y-REF430 Y) (AP-REF432 AP))
     (%%DSPR2 UPLO N-REF426 ALPHA-REF427 X-REF428 INCX-REF429 Y-REF430
      INCY-REF431 AP-REF432))))

(CFFI:DEFCFUN ("dswap_" %%DSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSWAP (N DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF433 ':INT32) (INCX-REF435 ':INT32)
                              (INCY-REF437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF433 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF435 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF437 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF434 DX) (DY-REF436 DY))
     (%%DSWAP N-REF433 DX-REF434 INCX-REF435 DY-REF436 INCY-REF437))))

(CFFI:DEFCFUN ("dsymm_" %%DSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF440 ':INT32) (N-REF441 ':INT32)
                              (ALPHA-REF442 ':DOUBLE) (LDA-REF444 ':INT32)
                              (LDB-REF446 ':INT32) (BETA-REF447 ':DOUBLE)
                              (LDC-REF449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF440 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF442 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF444 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF446 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF447 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF449 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF443 A) (B-REF445 B) (C-REF448 C))
     (%%DSYMM SIDE UPLO M-REF440 N-REF441 ALPHA-REF442 A-REF443 LDA-REF444
      B-REF445 LDB-REF446 BETA-REF447 C-REF448 LDC-REF449))))

(CFFI:DEFCFUN ("dsymv_" %%DSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF451 ':INT32) (ALPHA-REF452 ':DOUBLE)
                              (LDA-REF454 ':INT32) (INCX-REF456 ':INT32)
                              (BETA-REF457 ':DOUBLE) (INCY-REF459 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF451 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF452 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF454 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF456 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF457 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF459 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF453 A) (X-REF455 X) (Y-REF458 Y))
     (%%DSYMV UPLO N-REF451 ALPHA-REF452 A-REF453 LDA-REF454 X-REF455
      INCX-REF456 BETA-REF457 Y-REF458 INCY-REF459))))

(CFFI:DEFCFUN ("dsyr_" %%DSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF461 ':INT32) (ALPHA-REF462 ':DOUBLE)
                              (INCX-REF464 ':INT32) (LDA-REF466 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF461 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF462 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF464 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF466 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF463 X) (A-REF465 A))
     (%%DSYR UPLO N-REF461 ALPHA-REF462 X-REF463 INCX-REF464 A-REF465
      LDA-REF466))))

(CFFI:DEFCFUN ("dsyr2_" %%DSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DSYR2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF468 ':INT32) (ALPHA-REF469 ':DOUBLE)
                              (INCX-REF471 ':INT32) (INCY-REF473 ':INT32)
                              (LDA-REF475 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF468 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF469 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF471 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF473 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF475 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF470 X) (Y-REF472 Y) (A-REF474 A))
     (%%DSYR2 UPLO N-REF468 ALPHA-REF469 X-REF470 INCX-REF471 Y-REF472
      INCY-REF473 A-REF474 LDA-REF475))))

(CFFI:DEFCFUN ("dsyr2k_" %%DSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF478 ':INT32) (K-REF479 ':INT32)
                              (ALPHA-REF480 ':DOUBLE) (LDA-REF482 ':INT32)
                              (LDB-REF484 ':INT32) (BETA-REF485 ':DOUBLE)
                              (LDC-REF487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF479 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF480 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF482 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF484 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF485 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF487 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF481 A) (B-REF483 B) (C-REF486 C))
     (%%DSYR2K UPLO TRANS N-REF478 K-REF479 ALPHA-REF480 A-REF481 LDA-REF482
      B-REF483 LDB-REF484 BETA-REF485 C-REF486 LDC-REF487))))

(CFFI:DEFCFUN ("dsyrk_" %%DSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF490 ':INT32) (K-REF491 ':INT32)
                              (ALPHA-REF492 ':DOUBLE) (LDA-REF494 ':INT32)
                              (BETA-REF495 ':DOUBLE) (LDC-REF497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF490 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF491 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF492 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF495 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF497 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF493 A) (C-REF496 C))
     (%%DSYRK UPLO TRANS N-REF490 K-REF491 ALPHA-REF492 A-REF493 LDA-REF494
      BETA-REF495 C-REF496 LDC-REF497))))

(CFFI:DEFCFUN ("dtbmv_" %%DTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF501 ':INT32) (K-REF502 ':INT32)
                              (LDA-REF504 ':INT32) (INCX-REF506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF502 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF504 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF506 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF503 A) (X-REF505 X))
     (%%DTBMV UPLO TRANS DIAG N-REF501 K-REF502 A-REF503 LDA-REF504 X-REF505
      INCX-REF506))))

(CFFI:DEFCFUN ("dtbsv_" %%DTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF510 ':INT32) (K-REF511 ':INT32)
                              (LDA-REF513 ':INT32) (INCX-REF515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF511 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF513 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF515 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF512 A) (X-REF514 X))
     (%%DTBSV UPLO TRANS DIAG N-REF510 K-REF511 A-REF512 LDA-REF513 X-REF514
      INCX-REF515))))

(CFFI:DEFCFUN ("dtpmv_" %%DTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF519 ':INT32) (INCX-REF522 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF519 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF522 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF520 AP) (X-REF521 X))
     (%%DTPMV UPLO TRANS DIAG N-REF519 AP-REF520 X-REF521 INCX-REF522))))

(CFFI:DEFCFUN ("dtpsv_" %%DTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF526 ':INT32) (INCX-REF529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF526 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF529 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF527 AP) (X-REF528 X))
     (%%DTPSV UPLO TRANS DIAG N-REF526 AP-REF527 X-REF528 INCX-REF529))))

(CFFI:DEFCFUN ("dtrmm_" %%DTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DTRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF534 ':INT32) (N-REF535 ':INT32)
                              (ALPHA-REF536 ':DOUBLE) (LDA-REF538 ':INT32)
                              (LDB-REF540 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF534 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF535 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF536 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF538 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF540 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF537 A) (B-REF539 B))
     (%%DTRMM SIDE UPLO TRANSA DIAG M-REF534 N-REF535 ALPHA-REF536 A-REF537
      LDA-REF538 B-REF539 LDB-REF540))))

(CFFI:DEFCFUN ("dtrmv_" %%DTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF544 ':INT32) (LDA-REF546 ':INT32)
                              (INCX-REF548 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF546 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF548 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF545 A) (X-REF547 X))
     (%%DTRMV UPLO TRANS DIAG N-REF544 A-REF545 LDA-REF546 X-REF547
      INCX-REF548))))

(CFFI:DEFCFUN ("dtrsm_" %%DTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DTRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF553 ':INT32) (N-REF554 ':INT32)
                              (ALPHA-REF555 ':DOUBLE) (LDA-REF557 ':INT32)
                              (LDB-REF559 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF553 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF554 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF555 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF559 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF556 A) (B-REF558 B))
     (%%DTRSM SIDE UPLO TRANSA DIAG M-REF553 N-REF554 ALPHA-REF555 A-REF556
      LDA-REF557 B-REF558 LDB-REF559))))

(CFFI:DEFCFUN ("dtrsv_" %%DTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF563 ':INT32) (LDA-REF565 ':INT32)
                              (INCX-REF567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF563 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF565 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF567 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF564 A) (X-REF566 X))
     (%%DTRSV UPLO TRANS DIAG N-REF563 A-REF564 LDA-REF565 X-REF566
      INCX-REF567))))

(CFFI:DEFCFUN ("dzasum_" %%DZASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DZASUM (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF568 ':INT32) (INCX-REF570 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF570 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF569 ZX))
     (%%DZASUM N-REF568 ZX-REF569 INCX-REF570))))

(CFFI:DEFCFUN ("dznrm2_" %%DZNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DZNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF571 ':INT32) (INCX-REF573 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF571 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF573 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF572 X))
     (%%DZNRM2 N-REF571 X-REF572 INCX-REF573))))

(CFFI:DEFCFUN ("icamax_" %%ICAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :INT32
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ICAMAX (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ICAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF574 ':INT32) (INCX-REF576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF574 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF576 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF575 CX))
     (%%ICAMAX N-REF574 CX-REF575 INCX-REF576))))

(CFFI:DEFCFUN ("idamax_" %%IDAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :INT32
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %IDAMAX (N DX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IDAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF577 ':INT32) (INCX-REF579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF577 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF579 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF578 DX))
     (%%IDAMAX N-REF577 DX-REF578 INCX-REF579))))

(CFFI:DEFCFUN ("isamax_" %%ISAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :INT32
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ISAMAX (N SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ISAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF580 ':INT32) (INCX-REF582 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF580 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF582 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF581 SX))
     (%%ISAMAX N-REF580 SX-REF581 INCX-REF582))))

(CFFI:DEFCFUN ("izamax_" %%IZAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :INT32
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %IZAMAX (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IZAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF583 ':INT32) (INCX-REF585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF583 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF585 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF584 ZX))
     (%%IZAMAX N-REF583 ZX-REF584 INCX-REF585))))

(CFFI:DEFCFUN ("lsame_" %%LSAME :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :INT32
  (CA :STRING)
  (CB :STRING))

(COMMON-LISP:DEFUN %LSAME (CA CB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%LSAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CB))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL (%%LSAME CA CB))))

(CFFI:DEFCFUN ("sasum_" %%SASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SASUM (N SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF588 ':INT32) (INCX-REF590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF588 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF590 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF589 SX))
     (%%SASUM N-REF588 SX-REF589 INCX-REF590))))

(CFFI:DEFCFUN ("saxpy_" %%SAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SAXPY (N SA SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF591 ':INT32) (SA-REF592 ':FLOAT)
                              (INCX-REF594 ':INT32) (INCY-REF596 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF591 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF592 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF594 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF596 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF593 SX) (SY-REF595 SY))
     (%%SAXPY N-REF591 SA-REF592 SX-REF593 INCX-REF594 SY-REF595 INCY-REF596))))

(CFFI:DEFCFUN ("scabs1_" %%SCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (Z :POINTER))

(COMMON-LISP:DEFUN %SCABS1 (Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCABS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF597
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Z-REF597 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Z)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Z)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%SCABS1 Z-REF597))))

(CFFI:DEFCFUN ("scasum_" %%SCASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SCASUM (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF598 ':INT32) (INCX-REF600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF598 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF600 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF599 CX))
     (%%SCASUM N-REF598 CX-REF599 INCX-REF600))))

(CFFI:DEFCFUN ("scnrm2_" %%SCNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SCNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF601 ':INT32) (INCX-REF603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF603 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF602 X))
     (%%SCNRM2 N-REF601 X-REF602 INCX-REF603))))

(CFFI:DEFCFUN ("scopy_" %%SCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SCOPY (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF604 ':INT32) (INCX-REF606 ':INT32)
                              (INCY-REF608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF606 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF608 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF605 SX) (SY-REF607 SY))
     (%%SCOPY N-REF604 SX-REF605 INCX-REF606 SY-REF607 INCY-REF608))))

(CFFI:DEFCFUN ("sdot_" %%SDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SDOT (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF609 ':INT32) (INCX-REF611 ':INT32)
                              (INCY-REF613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF609 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF611 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF613 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF610 SX) (SY-REF612 SY))
     (%%SDOT N-REF609 SX-REF610 INCX-REF611 SY-REF612 INCY-REF613))))

(CFFI:DEFCFUN ("sdsdot_" %%SDSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (N :POINTER)
  (SB :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SDSDOT (N SB SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDSDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF614 ':INT32) (SB-REF615 ':FLOAT)
                              (INCX-REF617 ':INT32) (INCY-REF619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF614 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF615 :FLOAT) SB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF617 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF619 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF616 SX) (SY-REF618 SY))
     (%%SDSDOT N-REF614 SB-REF615 SX-REF616 INCX-REF617 SY-REF618
      INCY-REF619))))

(CFFI:DEFCFUN ("sgbmv_" %%SGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF621 ':INT32) (N-REF622 ':INT32)
                              (KL-REF623 ':INT32) (KU-REF624 ':INT32)
                              (ALPHA-REF625 ':FLOAT) (LDA-REF627 ':INT32)
                              (INCX-REF629 ':INT32) (BETA-REF630 ':FLOAT)
                              (INCY-REF632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF621 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF622 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF623 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF624 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF625 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF627 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF629 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF630 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF632 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF626 A) (X-REF628 X) (Y-REF631 Y))
     (%%SGBMV TRANS M-REF621 N-REF622 KL-REF623 KU-REF624 ALPHA-REF625 A-REF626
      LDA-REF627 X-REF628 INCX-REF629 BETA-REF630 Y-REF631 INCY-REF632))))

(CFFI:DEFCFUN ("sgemm_" %%SGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF635 ':INT32) (N-REF636 ':INT32)
                              (K-REF637 ':INT32) (ALPHA-REF638 ':FLOAT)
                              (LDA-REF640 ':INT32) (LDB-REF642 ':INT32)
                              (BETA-REF643 ':FLOAT) (LDC-REF645 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF635 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF637 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF638 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF640 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF642 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF643 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF645 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF639 A) (B-REF641 B) (C-REF644 C))
     (%%SGEMM TRANSA TRANSB M-REF635 N-REF636 K-REF637 ALPHA-REF638 A-REF639
      LDA-REF640 B-REF641 LDB-REF642 BETA-REF643 C-REF644 LDC-REF645))))

(CFFI:DEFCFUN ("sgemv_" %%SGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF647 ':INT32) (N-REF648 ':INT32)
                              (ALPHA-REF649 ':FLOAT) (LDA-REF651 ':INT32)
                              (INCX-REF653 ':INT32) (BETA-REF654 ':FLOAT)
                              (INCY-REF656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF647 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF649 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF651 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF653 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF654 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF656 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF650 A) (X-REF652 X) (Y-REF655 Y))
     (%%SGEMV TRANS M-REF647 N-REF648 ALPHA-REF649 A-REF650 LDA-REF651 X-REF652
      INCX-REF653 BETA-REF654 Y-REF655 INCY-REF656))))

(CFFI:DEFCFUN ("sger_" %%SGER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SGER (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF657 ':INT32) (N-REF658 ':INT32)
                              (ALPHA-REF659 ':FLOAT) (INCX-REF661 ':INT32)
                              (INCY-REF663 ':INT32) (LDA-REF665 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF657 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF658 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF659 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF661 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF663 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF665 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF660 X) (Y-REF662 Y) (A-REF664 A))
     (%%SGER M-REF657 N-REF658 ALPHA-REF659 X-REF660 INCX-REF661 Y-REF662
      INCY-REF663 A-REF664 LDA-REF665))))

(CFFI:DEFCFUN ("snrm2_" %%SNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :FLOAT
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF666 ':INT32) (INCX-REF668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF666 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF668 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF667 X))
     (%%SNRM2 N-REF666 X-REF667 INCX-REF668))))

(CFFI:DEFCFUN ("srot_" %%SROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %SROT (N SX INCX SY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF669 ':INT32) (INCX-REF671 ':INT32)
                              (INCY-REF673 ':INT32) (C-REF674 ':FLOAT)
                              (S-REF675 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF669 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF671 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF673 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF674 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF675 :FLOAT) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF670 SX) (SY-REF672 SY))
     (%%SROT N-REF669 SX-REF670 INCX-REF671 SY-REF672 INCY-REF673 C-REF674
      S-REF675))))

(CFFI:DEFCFUN ("srotg_" %%SROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SA :POINTER)
  (SB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %SROTG (SA SB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROTG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((SA-REF676 ':FLOAT) (SB-REF677 ':FLOAT)
                              (C-REF678 ':FLOAT) (S-REF679 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF676 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF677 :FLOAT) SB)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF678 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF679 :FLOAT) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%SROTG SA-REF676 SB-REF677 C-REF678 S-REF679))))

(CFFI:DEFCFUN ("srotm_" %%SROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER)
  (SPARAM :POINTER))

(COMMON-LISP:DEFUN %SROTM (N SX INCX SY INCY SPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROTM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF680 ':INT32) (INCX-REF682 ':INT32)
                              (INCY-REF684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF680 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF682 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF684 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((SX-REF681 SX) (SY-REF683 SY) (SPARAM-REF685 SPARAM))
     (%%SROTM N-REF680 SX-REF681 INCX-REF682 SY-REF683 INCY-REF684
      SPARAM-REF685))))

(CFFI:DEFCFUN ("srotmg_" %%SROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SD1 :POINTER)
  (SD2 :POINTER)
  (SX1 :POINTER)
  (SY1 :POINTER)
  (SPARAM :POINTER))

(COMMON-LISP:DEFUN %SROTMG (SD1 SD2 SX1 SY1 SPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROTMG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SD1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SD2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SX1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SY1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((SD1-REF686 ':FLOAT) (SD2-REF687 ':FLOAT)
                              (SX1-REF688 ':FLOAT) (SY1-REF689 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SD1-REF686 :FLOAT) SD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SD2-REF687 :FLOAT) SD2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SX1-REF688 :FLOAT) SX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SY1-REF689 :FLOAT) SY1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SPARAM-REF690 SPARAM))
     (%%SROTMG SD1-REF686 SD2-REF687 SX1-REF688 SY1-REF689 SPARAM-REF690))))

(CFFI:DEFCFUN ("ssbmv_" %%SSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF692 ':INT32) (K-REF693 ':INT32)
                              (ALPHA-REF694 ':FLOAT) (LDA-REF696 ':INT32)
                              (INCX-REF698 ':INT32) (BETA-REF699 ':FLOAT)
                              (INCY-REF701 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF692 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF693 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF694 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF696 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF698 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF699 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF701 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF695 A) (X-REF697 X) (Y-REF700 Y))
     (%%SSBMV UPLO N-REF692 K-REF693 ALPHA-REF694 A-REF695 LDA-REF696 X-REF697
      INCX-REF698 BETA-REF699 Y-REF700 INCY-REF701))))

(CFFI:DEFCFUN ("sscal_" %%SSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SSCAL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF702 ':INT32) (SA-REF703 ':FLOAT)
                              (INCX-REF705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF702 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF703 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF705 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF704 SX))
     (%%SSCAL N-REF702 SA-REF703 SX-REF704 INCX-REF705))))

(CFFI:DEFCFUN ("sspmv_" %%SSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF707 ':INT32) (ALPHA-REF708 ':FLOAT)
                              (INCX-REF711 ':INT32) (BETA-REF712 ':FLOAT)
                              (INCY-REF714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF707 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF708 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF711 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF712 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF714 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((AP-REF709 AP) (X-REF710 X) (Y-REF713 Y))
     (%%SSPMV UPLO N-REF707 ALPHA-REF708 AP-REF709 X-REF710 INCX-REF711
      BETA-REF712 Y-REF713 INCY-REF714))))

(CFFI:DEFCFUN ("sspr_" %%SSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %SSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF716 ':INT32) (ALPHA-REF717 ':FLOAT)
                              (INCX-REF719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF717 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF719 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF718 X) (AP-REF720 AP))
     (%%SSPR UPLO N-REF716 ALPHA-REF717 X-REF718 INCX-REF719 AP-REF720))))

(CFFI:DEFCFUN ("sspr2_" %%SSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %SSPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF722 ':INT32) (ALPHA-REF723 ':FLOAT)
                              (INCX-REF725 ':INT32) (INCY-REF727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF723 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF725 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF727 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF724 X) (Y-REF726 Y) (AP-REF728 AP))
     (%%SSPR2 UPLO N-REF722 ALPHA-REF723 X-REF724 INCX-REF725 Y-REF726
      INCY-REF727 AP-REF728))))

(CFFI:DEFCFUN ("sswap_" %%SSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSWAP (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF729 ':INT32) (INCX-REF731 ':INT32)
                              (INCY-REF733 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF731 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF733 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF730 SX) (SY-REF732 SY))
     (%%SSWAP N-REF729 SX-REF730 INCX-REF731 SY-REF732 INCY-REF733))))

(CFFI:DEFCFUN ("ssymm_" %%SSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF736 ':INT32) (N-REF737 ':INT32)
                              (ALPHA-REF738 ':FLOAT) (LDA-REF740 ':INT32)
                              (LDB-REF742 ':INT32) (BETA-REF743 ':FLOAT)
                              (LDC-REF745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF736 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF737 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF738 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF740 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF742 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF743 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF745 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF739 A) (B-REF741 B) (C-REF744 C))
     (%%SSYMM SIDE UPLO M-REF736 N-REF737 ALPHA-REF738 A-REF739 LDA-REF740
      B-REF741 LDB-REF742 BETA-REF743 C-REF744 LDC-REF745))))

(CFFI:DEFCFUN ("ssymv_" %%SSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF747 ':INT32) (ALPHA-REF748 ':FLOAT)
                              (LDA-REF750 ':INT32) (INCX-REF752 ':INT32)
                              (BETA-REF753 ':FLOAT) (INCY-REF755 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF747 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF748 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF750 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF752 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF753 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF755 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF749 A) (X-REF751 X) (Y-REF754 Y))
     (%%SSYMV UPLO N-REF747 ALPHA-REF748 A-REF749 LDA-REF750 X-REF751
      INCX-REF752 BETA-REF753 Y-REF754 INCY-REF755))))

(CFFI:DEFCFUN ("ssyr_" %%SSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF757 ':INT32) (ALPHA-REF758 ':FLOAT)
                              (INCX-REF760 ':INT32) (LDA-REF762 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF757 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF758 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF760 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF762 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF759 X) (A-REF761 A))
     (%%SSYR UPLO N-REF757 ALPHA-REF758 X-REF759 INCX-REF760 A-REF761
      LDA-REF762))))

(CFFI:DEFCFUN ("ssyr2_" %%SSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SSYR2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF764 ':INT32) (ALPHA-REF765 ':FLOAT)
                              (INCX-REF767 ':INT32) (INCY-REF769 ':INT32)
                              (LDA-REF771 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF764 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF765 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF767 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF769 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF771 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF766 X) (Y-REF768 Y) (A-REF770 A))
     (%%SSYR2 UPLO N-REF764 ALPHA-REF765 X-REF766 INCX-REF767 Y-REF768
      INCY-REF769 A-REF770 LDA-REF771))))

(CFFI:DEFCFUN ("ssyr2k_" %%SSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF774 ':INT32) (K-REF775 ':INT32)
                              (ALPHA-REF776 ':FLOAT) (LDA-REF778 ':INT32)
                              (LDB-REF780 ':INT32) (BETA-REF781 ':FLOAT)
                              (LDC-REF783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF775 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF776 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF778 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF780 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF781 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF783 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF777 A) (B-REF779 B) (C-REF782 C))
     (%%SSYR2K UPLO TRANS N-REF774 K-REF775 ALPHA-REF776 A-REF777 LDA-REF778
      B-REF779 LDB-REF780 BETA-REF781 C-REF782 LDC-REF783))))

(CFFI:DEFCFUN ("ssyrk_" %%SSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF786 ':INT32) (K-REF787 ':INT32)
                              (ALPHA-REF788 ':FLOAT) (LDA-REF790 ':INT32)
                              (BETA-REF791 ':FLOAT) (LDC-REF793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF786 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF787 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF788 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF790 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF791 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF793 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF789 A) (C-REF792 C))
     (%%SSYRK UPLO TRANS N-REF786 K-REF787 ALPHA-REF788 A-REF789 LDA-REF790
      BETA-REF791 C-REF792 LDC-REF793))))

(CFFI:DEFCFUN ("stbmv_" %%STBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF797 ':INT32) (K-REF798 ':INT32)
                              (LDA-REF800 ':INT32) (INCX-REF802 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF798 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF802 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF799 A) (X-REF801 X))
     (%%STBMV UPLO TRANS DIAG N-REF797 K-REF798 A-REF799 LDA-REF800 X-REF801
      INCX-REF802))))

(CFFI:DEFCFUN ("stbsv_" %%STBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF806 ':INT32) (K-REF807 ':INT32)
                              (LDA-REF809 ':INT32) (INCX-REF811 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF806 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF807 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF809 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF811 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF808 A) (X-REF810 X))
     (%%STBSV UPLO TRANS DIAG N-REF806 K-REF807 A-REF808 LDA-REF809 X-REF810
      INCX-REF811))))

(CFFI:DEFCFUN ("stpmv_" %%STPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF815 ':INT32) (INCX-REF818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF815 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF818 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF816 AP) (X-REF817 X))
     (%%STPMV UPLO TRANS DIAG N-REF815 AP-REF816 X-REF817 INCX-REF818))))

(CFFI:DEFCFUN ("stpsv_" %%STPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF822 ':INT32) (INCX-REF825 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF822 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF825 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF823 AP) (X-REF824 X))
     (%%STPSV UPLO TRANS DIAG N-REF822 AP-REF823 X-REF824 INCX-REF825))))

(CFFI:DEFCFUN ("strmm_" %%STRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %STRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF830 ':INT32) (N-REF831 ':INT32)
                              (ALPHA-REF832 ':FLOAT) (LDA-REF834 ':INT32)
                              (LDB-REF836 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF830 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF831 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF832 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF834 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF836 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF833 A) (B-REF835 B))
     (%%STRMM SIDE UPLO TRANSA DIAG M-REF830 N-REF831 ALPHA-REF832 A-REF833
      LDA-REF834 B-REF835 LDB-REF836))))

(CFFI:DEFCFUN ("strmv_" %%STRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF840 ':INT32) (LDA-REF842 ':INT32)
                              (INCX-REF844 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF842 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF844 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF841 A) (X-REF843 X))
     (%%STRMV UPLO TRANS DIAG N-REF840 A-REF841 LDA-REF842 X-REF843
      INCX-REF844))))

(CFFI:DEFCFUN ("strsm_" %%STRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %STRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF849 ':INT32) (N-REF850 ':INT32)
                              (ALPHA-REF851 ':FLOAT) (LDA-REF853 ':INT32)
                              (LDB-REF855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF849 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF851 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF853 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF855 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF852 A) (B-REF854 B))
     (%%STRSM SIDE UPLO TRANSA DIAG M-REF849 N-REF850 ALPHA-REF851 A-REF852
      LDA-REF853 B-REF854 LDB-REF855))))

(CFFI:DEFCFUN ("strsv_" %%STRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF859 ':INT32) (LDA-REF861 ':INT32)
                              (INCX-REF863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF861 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF863 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF860 A) (X-REF862 X))
     (%%STRSV UPLO TRANS DIAG N-REF859 A-REF860 LDA-REF861 X-REF862
      INCX-REF863))))

(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SRNAME :STRING)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA (SRNAME INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%XERBLA SRNAME INFO-REF865))))

(CFFI:DEFCFUN ("xerbla_array_" %%XERBLA_ARRAY :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SRNAME_ARRAY :POINTER)
  (SRNAME_LEN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA_ARRAY (SRNAME_ARRAY SRNAME_LEN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA_ARRAY)
                       (COMMON-LISP:TYPE COMMON-LISP:ARRAY SRNAME_ARRAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        SRNAME_LEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF867 ':INT32) (INFO-REF868 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF867 :INT32) SRNAME_LEN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF868 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF866 SRNAME_ARRAY))
     (%%XERBLA_ARRAY SRNAME_ARRAY-REF866 SRNAME_LEN-REF867 INFO-REF868))))

(CFFI:DEFCFUN ("zaxpy_" %%ZAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (ZA :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZAXPY (N ZA ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ZA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF869 ':INT32)
                              (ZA-REF870
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF872 ':INT32) (INCY-REF874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF869 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ZA-REF870 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ZA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ZA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF872 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF874 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF871 ZX) (ZY-REF873 ZY))
     (%%ZAXPY N-REF869 ZA-REF870 ZX-REF871 INCX-REF872 ZY-REF873 INCY-REF874))))

(CFFI:DEFCFUN ("zcopy_" %%ZCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZCOPY (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF875 ':INT32) (INCX-REF877 ':INT32)
                              (INCY-REF879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF875 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF877 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF879 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF876 ZX) (ZY-REF878 ZY))
     (%%ZCOPY N-REF875 ZX-REF876 INCX-REF877 ZY-REF878 INCY-REF879))))

(CFFI:DEFCFUN ("zdotc_" %%ZDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZDOTC (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDOTC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF880 ':INT32) (INCX-REF882 ':INT32)
                              (INCY-REF884 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF880 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF882 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF884 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF881 ZX) (ZY-REF883 ZY))
     (%%ZDOTC N-REF880 ZX-REF881 INCX-REF882 ZY-REF883 INCY-REF884))))

(CFFI:DEFCFUN ("zdotu_" %%ZDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZDOTU (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDOTU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF885 ':INT32) (INCX-REF887 ':INT32)
                              (INCY-REF889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF885 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF887 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF889 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF886 ZX) (ZY-REF888 ZY))
     (%%ZDOTU N-REF885 ZX-REF886 INCX-REF887 ZY-REF888 INCY-REF889))))

(CFFI:DEFCFUN ("zdrot_" %%ZDROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZDROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF890 ':INT32) (INCX-REF892 ':INT32)
                              (INCY-REF894 ':INT32) (C-REF895 ':DOUBLE)
                              (S-REF896 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF892 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF894 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF895 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF896 :DOUBLE) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF891 CX) (CY-REF893 CY))
     (%%ZDROT N-REF890 CX-REF891 INCX-REF892 CY-REF893 INCY-REF894 C-REF895
      S-REF896))))

(CFFI:DEFCFUN ("zdscal_" %%ZDSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (DA :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZDSCAL (N DA ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF897 ':INT32) (DA-REF898 ':DOUBLE)
                              (INCX-REF900 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF897 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF898 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF900 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF899 ZX))
     (%%ZDSCAL N-REF897 DA-REF898 ZX-REF899 INCX-REF900))))

(CFFI:DEFCFUN ("zgbmv_" %%ZGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF902 ':INT32) (N-REF903 ':INT32)
                              (KL-REF904 ':INT32) (KU-REF905 ':INT32)
                              (ALPHA-REF906
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF908 ':INT32) (INCX-REF910 ':INT32)
                              (BETA-REF911
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF913 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF902 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF904 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF905 :INT32) KU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF906
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF908 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF910 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF911
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF913 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF907 A) (X-REF909 X) (Y-REF912 Y))
     (%%ZGBMV TRANS M-REF902 N-REF903 KL-REF904 KU-REF905 ALPHA-REF906 A-REF907
      LDA-REF908 X-REF909 INCX-REF910 BETA-REF911 Y-REF912 INCY-REF913))))

(CFFI:DEFCFUN ("zgemm_" %%ZGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF916 ':INT32) (N-REF917 ':INT32)
                              (K-REF918 ':INT32)
                              (ALPHA-REF919
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF921 ':INT32) (LDB-REF923 ':INT32)
                              (BETA-REF924
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF926 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF916 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF917 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF918 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF919
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF921 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF923 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF924
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF926 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF920 A) (B-REF922 B) (C-REF925 C))
     (%%ZGEMM TRANSA TRANSB M-REF916 N-REF917 K-REF918 ALPHA-REF919 A-REF920
      LDA-REF921 B-REF922 LDB-REF923 BETA-REF924 C-REF925 LDC-REF926))))

(CFFI:DEFCFUN ("zgemv_" %%ZGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF928 ':INT32) (N-REF929 ':INT32)
                              (ALPHA-REF930
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF932 ':INT32) (INCX-REF934 ':INT32)
                              (BETA-REF935
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF937 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF928 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF929 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF930
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF932 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF934 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF935
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF937 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF931 A) (X-REF933 X) (Y-REF936 Y))
     (%%ZGEMV TRANS M-REF928 N-REF929 ALPHA-REF930 A-REF931 LDA-REF932 X-REF933
      INCX-REF934 BETA-REF935 Y-REF936 INCY-REF937))))

(CFFI:DEFCFUN ("zgerc_" %%ZGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZGERC (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF938 ':INT32) (N-REF939 ':INT32)
                              (ALPHA-REF940
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF942 ':INT32) (INCY-REF944 ':INT32)
                              (LDA-REF946 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF938 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF939 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF940
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF942 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF944 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF946 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF941 X) (Y-REF943 Y) (A-REF945 A))
     (%%ZGERC M-REF938 N-REF939 ALPHA-REF940 X-REF941 INCX-REF942 Y-REF943
      INCY-REF944 A-REF945 LDA-REF946))))

(CFFI:DEFCFUN ("zgeru_" %%ZGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZGERU (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF947 ':INT32) (N-REF948 ':INT32)
                              (ALPHA-REF949
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF951 ':INT32) (INCY-REF953 ':INT32)
                              (LDA-REF955 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF947 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF948 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF949
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF951 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF953 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF955 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF950 X) (Y-REF952 Y) (A-REF954 A))
     (%%ZGERU M-REF947 N-REF948 ALPHA-REF949 X-REF950 INCX-REF951 Y-REF952
      INCY-REF953 A-REF954 LDA-REF955))))

(CFFI:DEFCFUN ("zhbmv_" %%ZHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZHBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF957 ':INT32) (K-REF958 ':INT32)
                              (ALPHA-REF959
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF961 ':INT32) (INCX-REF963 ':INT32)
                              (BETA-REF964
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF958 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF959
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF961 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF963 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF964
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF966 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF960 A) (X-REF962 X) (Y-REF965 Y))
     (%%ZHBMV UPLO N-REF957 K-REF958 ALPHA-REF959 A-REF960 LDA-REF961 X-REF962
      INCX-REF963 BETA-REF964 Y-REF965 INCY-REF966))))

(CFFI:DEFCFUN ("zhemm_" %%ZHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZHEMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF969 ':INT32) (N-REF970 ':INT32)
                              (ALPHA-REF971
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF973 ':INT32) (LDB-REF975 ':INT32)
                              (BETA-REF976
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF969 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF970 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF971
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF973 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF975 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF976
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF978 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF972 A) (B-REF974 B) (C-REF977 C))
     (%%ZHEMM SIDE UPLO M-REF969 N-REF970 ALPHA-REF971 A-REF972 LDA-REF973
      B-REF974 LDB-REF975 BETA-REF976 C-REF977 LDC-REF978))))

(CFFI:DEFCFUN ("zhemv_" %%ZHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZHEMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF980 ':INT32)
                              (ALPHA-REF981
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF983 ':INT32) (INCX-REF985 ':INT32)
                              (BETA-REF986
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF988 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF980 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF981
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF985 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF986
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF988 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF982 A) (X-REF984 X) (Y-REF987 Y))
     (%%ZHEMV UPLO N-REF980 ALPHA-REF981 A-REF982 LDA-REF983 X-REF984
      INCX-REF985 BETA-REF986 Y-REF987 INCY-REF988))))

(CFFI:DEFCFUN ("zher_" %%ZHER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZHER (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHER)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF990 ':INT32) (ALPHA-REF991 ':DOUBLE)
                              (INCX-REF993 ':INT32) (LDA-REF995 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF990 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF991 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF993 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF995 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF992 X) (A-REF994 A))
     (%%ZHER UPLO N-REF990 ALPHA-REF991 X-REF992 INCX-REF993 A-REF994
      LDA-REF995))))

(CFFI:DEFCFUN ("zher2_" %%ZHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZHER2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHER2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF997 ':INT32)
                              (ALPHA-REF998
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF1000 ':INT32) (INCY-REF1002 ':INT32)
                              (LDA-REF1004 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF997 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF998
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1000 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1002 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1004 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF999 X) (Y-REF1001 Y) (A-REF1003 A))
     (%%ZHER2 UPLO N-REF997 ALPHA-REF998 X-REF999 INCX-REF1000 Y-REF1001
      INCY-REF1002 A-REF1003 LDA-REF1004))))

(CFFI:DEFCFUN ("zher2k_" %%ZHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZHER2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHER2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1007 ':INT32) (K-REF1008 ':INT32)
                              (ALPHA-REF1009
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF1011 ':INT32) (LDB-REF1013 ':INT32)
                              (BETA-REF1014 ':DOUBLE) (LDC-REF1016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1008 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1009
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1011 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1013 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1014 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1016 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF1010 A) (B-REF1012 B) (C-REF1015 C))
     (%%ZHER2K UPLO TRANS N-REF1007 K-REF1008 ALPHA-REF1009 A-REF1010
      LDA-REF1011 B-REF1012 LDB-REF1013 BETA-REF1014 C-REF1015 LDC-REF1016))))

(CFFI:DEFCFUN ("zherk_" %%ZHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZHERK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1019 ':INT32) (K-REF1020 ':INT32)
                              (ALPHA-REF1021 ':DOUBLE) (LDA-REF1023 ':INT32)
                              (BETA-REF1024 ':DOUBLE) (LDC-REF1026 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1020 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1021 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1023 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1024 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1026 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1022 A) (C-REF1025 C))
     (%%ZHERK UPLO TRANS N-REF1019 K-REF1020 ALPHA-REF1021 A-REF1022
      LDA-REF1023 BETA-REF1024 C-REF1025 LDC-REF1026))))

(CFFI:DEFCFUN ("zhpmv_" %%ZHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZHPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1028 ':INT32)
                              (ALPHA-REF1029
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF1032 ':INT32)
                              (BETA-REF1033
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF1035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1028 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1029
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1032 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF1033
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1035 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((AP-REF1030 AP) (X-REF1031 X) (Y-REF1034 Y))
     (%%ZHPMV UPLO N-REF1028 ALPHA-REF1029 AP-REF1030 X-REF1031 INCX-REF1032
      BETA-REF1033 Y-REF1034 INCY-REF1035))))

(CFFI:DEFCFUN ("zhpr_" %%ZHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %ZHPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1037 ':INT32) (ALPHA-REF1038 ':DOUBLE)
                              (INCX-REF1040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1037 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1038 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1040 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF1039 X) (AP-REF1041 AP))
     (%%ZHPR UPLO N-REF1037 ALPHA-REF1038 X-REF1039 INCX-REF1040 AP-REF1041))))

(CFFI:DEFCFUN ("zhpr2_" %%ZHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %ZHPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1043 ':INT32)
                              (ALPHA-REF1044
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF1046 ':INT32) (INCY-REF1048 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1043 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1044
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1046 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1048 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((X-REF1045 X) (Y-REF1047 Y) (AP-REF1049 AP))
     (%%ZHPR2 UPLO N-REF1043 ALPHA-REF1044 X-REF1045 INCX-REF1046 Y-REF1047
      INCY-REF1048 AP-REF1049))))

(CFFI:DEFCFUN ("zrotg_" %%ZROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (CA :POINTER)
  (CB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZROTG (CA CB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZROTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF1050
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CB-REF1051
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF1052 ':DOUBLE)
                              (S-REF1053
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF1050 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CB-REF1051 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CB)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CB)))
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF1052 :DOUBLE) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF1053 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
     (%%ZROTG CA-REF1050 CB-REF1051 C-REF1052 S-REF1053))))

(CFFI:DEFCFUN ("zscal_" %%ZSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (ZA :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZSCAL (N ZA ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ZA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1054 ':INT32)
                              (ZA-REF1055
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF1057 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1054 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ZA-REF1055 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ZA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ZA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1057 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF1056 ZX))
     (%%ZSCAL N-REF1054 ZA-REF1055 ZX-REF1056 INCX-REF1057))))

(CFFI:DEFCFUN ("zswap_" %%ZSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZSWAP (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1058 ':INT32) (INCX-REF1060 ':INT32)
                              (INCY-REF1062 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1060 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1062 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF1059 ZX) (ZY-REF1061 ZY))
     (%%ZSWAP N-REF1058 ZX-REF1059 INCX-REF1060 ZY-REF1061 INCY-REF1062))))

(CFFI:DEFCFUN ("zsymm_" %%ZSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1065 ':INT32) (N-REF1066 ':INT32)
                              (ALPHA-REF1067
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF1069 ':INT32) (LDB-REF1071 ':INT32)
                              (BETA-REF1072
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF1074 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1065 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1066 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1067
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1069 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1071 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF1072
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1074 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF1068 A) (B-REF1070 B) (C-REF1073 C))
     (%%ZSYMM SIDE UPLO M-REF1065 N-REF1066 ALPHA-REF1067 A-REF1068 LDA-REF1069
      B-REF1070 LDB-REF1071 BETA-REF1072 C-REF1073 LDC-REF1074))))

(CFFI:DEFCFUN ("zsyr2k_" %%ZSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1077 ':INT32) (K-REF1078 ':INT32)
                              (ALPHA-REF1079
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF1081 ':INT32) (LDB-REF1083 ':INT32)
                              (BETA-REF1084
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF1086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1077 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1078 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1079
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1081 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1083 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF1084
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1086 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS
     ((A-REF1080 A) (B-REF1082 B) (C-REF1085 C))
     (%%ZSYR2K UPLO TRANS N-REF1077 K-REF1078 ALPHA-REF1079 A-REF1080
      LDA-REF1081 B-REF1082 LDB-REF1083 BETA-REF1084 C-REF1085 LDC-REF1086))))

(CFFI:DEFCFUN ("zsyrk_" %%ZSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1089 ':INT32) (K-REF1090 ':INT32)
                              (ALPHA-REF1091
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF1093 ':INT32)
                              (BETA-REF1094
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF1096 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1089 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1090 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1091
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1093 :INT32) LDA)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF1094
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1096 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1092 A) (C-REF1095 C))
     (%%ZSYRK UPLO TRANS N-REF1089 K-REF1090 ALPHA-REF1091 A-REF1092
      LDA-REF1093 BETA-REF1094 C-REF1095 LDC-REF1096))))

(CFFI:DEFCFUN ("ztbmv_" %%ZTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1100 ':INT32) (K-REF1101 ':INT32)
                              (LDA-REF1103 ':INT32) (INCX-REF1105 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1101 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1105 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1102 A) (X-REF1104 X))
     (%%ZTBMV UPLO TRANS DIAG N-REF1100 K-REF1101 A-REF1102 LDA-REF1103
      X-REF1104 INCX-REF1105))))

(CFFI:DEFCFUN ("ztbsv_" %%ZTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1109 ':INT32) (K-REF1110 ':INT32)
                              (LDA-REF1112 ':INT32) (INCX-REF1114 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1109 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1110 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1114 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1111 A) (X-REF1113 X))
     (%%ZTBSV UPLO TRANS DIAG N-REF1109 K-REF1110 A-REF1111 LDA-REF1112
      X-REF1113 INCX-REF1114))))

(CFFI:DEFCFUN ("ztpmv_" %%ZTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1118 ':INT32) (INCX-REF1121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1118 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1121 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1119 AP) (X-REF1120 X))
     (%%ZTPMV UPLO TRANS DIAG N-REF1118 AP-REF1119 X-REF1120 INCX-REF1121))))

(CFFI:DEFCFUN ("ztpsv_" %%ZTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1125 ':INT32) (INCX-REF1128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1128 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1126 AP) (X-REF1127 X))
     (%%ZTPSV UPLO TRANS DIAG N-REF1125 AP-REF1126 X-REF1127 INCX-REF1128))))

(CFFI:DEFCFUN ("ztrmm_" %%ZTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZTRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1133 ':INT32) (N-REF1134 ':INT32)
                              (ALPHA-REF1135
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF1137 ':INT32) (LDB-REF1139 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1133 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1134 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1135
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1137 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1139 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1136 A) (B-REF1138 B))
     (%%ZTRMM SIDE UPLO TRANSA DIAG M-REF1133 N-REF1134 ALPHA-REF1135 A-REF1136
      LDA-REF1137 B-REF1138 LDB-REF1139))))

(CFFI:DEFCFUN ("ztrmv_" %%ZTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1143 ':INT32) (LDA-REF1145 ':INT32)
                              (INCX-REF1147 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1143 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1145 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1147 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1144 A) (X-REF1146 X))
     (%%ZTRMV UPLO TRANS DIAG N-REF1143 A-REF1144 LDA-REF1145 X-REF1146
      INCX-REF1147))))

(CFFI:DEFCFUN ("ztrsm_" %%ZTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZTRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1152 ':INT32) (N-REF1153 ':INT32)
                              (ALPHA-REF1154
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF1156 ':INT32) (LDB-REF1158 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1152 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1153 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF1154
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1158 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1155 A) (B-REF1157 B))
     (%%ZTRSM SIDE UPLO TRANSA DIAG M-REF1152 N-REF1153 ALPHA-REF1154 A-REF1155
      LDA-REF1156 B-REF1157 LDB-REF1158))))

(CFFI:DEFCFUN ("ztrsv_" %%ZTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1162 ':INT32) (LDA-REF1164 ':INT32)
                              (INCX-REF1166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1162 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1164 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1166 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1163 A) (X-REF1165 X))
     (%%ZTRSV UPLO TRANS DIAG N-REF1162 A-REF1163 LDA-REF1164 X-REF1165
      INCX-REF1166))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%CAXPY %CAXPY %%CCOPY %CCOPY %%CDOTC %CDOTC %%CDOTU
  %CDOTU %%CGBMV %CGBMV %%CGEMM %CGEMM %%CGEMV %CGEMV %%CGERC %CGERC %%CGERU
  %CGERU %%CHBMV %CHBMV %%CHEMM %CHEMM %%CHEMV %CHEMV %%CHER %CHER %%CHER2
  %CHER2 %%CHER2K %CHER2K %%CHERK %CHERK %%CHPMV %CHPMV %%CHPR %CHPR %%CHPR2
  %CHPR2 %%CROTG %CROTG %%CSCAL %CSCAL %%CSROT %CSROT %%CSSCAL %CSSCAL %%CSWAP
  %CSWAP %%CSYMM %CSYMM %%CSYR2K %CSYR2K %%CSYRK %CSYRK %%CTBMV %CTBMV %%CTBSV
  %CTBSV %%CTPMV %CTPMV %%CTPSV %CTPSV %%CTRMM %CTRMM %%CTRMV %CTRMV %%CTRSM
  %CTRSM %%CTRSV %CTRSV %%DASUM %DASUM %%DAXPY %DAXPY %%DCABS1 %DCABS1 %%DCOPY
  %DCOPY %%DDOT %DDOT %%DGBMV %DGBMV %%DGEMM %DGEMM %%DGEMV %DGEMV %%DGER %DGER
  %%DNRM2 %DNRM2 %%DROT %DROT %%DROTG %DROTG %%DROTM %DROTM %%DROTMG %DROTMG
  %%DSBMV %DSBMV %%DSCAL %DSCAL %%DSDOT %DSDOT %%DSPMV %DSPMV %%DSPR %DSPR
  %%DSPR2 %DSPR2 %%DSWAP %DSWAP %%DSYMM %DSYMM %%DSYMV %DSYMV %%DSYR %DSYR
  %%DSYR2 %DSYR2 %%DSYR2K %DSYR2K %%DSYRK %DSYRK %%DTBMV %DTBMV %%DTBSV %DTBSV
  %%DTPMV %DTPMV %%DTPSV %DTPSV %%DTRMM %DTRMM %%DTRMV %DTRMV %%DTRSM %DTRSM
  %%DTRSV %DTRSV %%DZASUM %DZASUM %%DZNRM2 %DZNRM2 %%ICAMAX %ICAMAX %%IDAMAX
  %IDAMAX %%ISAMAX %ISAMAX %%IZAMAX %IZAMAX %%LSAME %LSAME %%SASUM %SASUM
  %%SAXPY %SAXPY %%SCABS1 %SCABS1 %%SCASUM %SCASUM %%SCNRM2 %SCNRM2 %%SCOPY
  %SCOPY %%SDOT %SDOT %%SDSDOT %SDSDOT %%SGBMV %SGBMV %%SGEMM %SGEMM %%SGEMV
  %SGEMV %%SGER %SGER %%SNRM2 %SNRM2 %%SROT %SROT %%SROTG %SROTG %%SROTM %SROTM
  %%SROTMG %SROTMG %%SSBMV %SSBMV %%SSCAL %SSCAL %%SSPMV %SSPMV %%SSPR %SSPR
  %%SSPR2 %SSPR2 %%SSWAP %SSWAP %%SSYMM %SSYMM %%SSYMV %SSYMV %%SSYR %SSYR
  %%SSYR2 %SSYR2 %%SSYR2K %SSYR2K %%SSYRK %SSYRK %%STBMV %STBMV %%STBSV %STBSV
  %%STPMV %STPMV %%STPSV %STPSV %%STRMM %STRMM %%STRMV %STRMV %%STRSM %STRSM
  %%STRSV %STRSV %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZAXPY %ZAXPY
  %%ZCOPY %ZCOPY %%ZDOTC %ZDOTC %%ZDOTU %ZDOTU %%ZDROT %ZDROT %%ZDSCAL %ZDSCAL
  %%ZGBMV %ZGBMV %%ZGEMM %ZGEMM %%ZGEMV %ZGEMV %%ZGERC %ZGERC %%ZGERU %ZGERU
  %%ZHBMV %ZHBMV %%ZHEMM %ZHEMM %%ZHEMV %ZHEMV %%ZHER %ZHER %%ZHER2 %ZHER2
  %%ZHER2K %ZHER2K %%ZHERK %ZHERK %%ZHPMV %ZHPMV %%ZHPR %ZHPR %%ZHPR2 %ZHPR2
  %%ZROTG %ZROTG %%ZSCAL %ZSCAL %%ZSWAP %ZSWAP %%ZSYMM %ZSYMM %%ZSYR2K %ZSYR2K
  %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV
  %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST 'MAGICL.FOREIGN-LIBRARIES:LIBBLAS)
                   ':MAGICL)
                    '(("CAXPY" "caxpy_" %%CAXPY %CAXPY)
                      ("CCOPY" "ccopy_" %%CCOPY %CCOPY)
                      ("CDOTC" "cdotc_" %%CDOTC %CDOTC)
                      ("CDOTU" "cdotu_" %%CDOTU %CDOTU)
                      ("CGBMV" "cgbmv_" %%CGBMV %CGBMV)
                      ("CGEMM" "cgemm_" %%CGEMM %CGEMM)
                      ("CGEMV" "cgemv_" %%CGEMV %CGEMV)
                      ("CGERC" "cgerc_" %%CGERC %CGERC)
                      ("CGERU" "cgeru_" %%CGERU %CGERU)
                      ("CHBMV" "chbmv_" %%CHBMV %CHBMV)
                      ("CHEMM" "chemm_" %%CHEMM %CHEMM)
                      ("CHEMV" "chemv_" %%CHEMV %CHEMV)
                      ("CHER" "cher_" %%CHER %CHER)
                      ("CHER2" "cher2_" %%CHER2 %CHER2)
                      ("CHER2K" "cher2k_" %%CHER2K %CHER2K)
                      ("CHERK" "cherk_" %%CHERK %CHERK)
                      ("CHPMV" "chpmv_" %%CHPMV %CHPMV)
                      ("CHPR" "chpr_" %%CHPR %CHPR)
                      ("CHPR2" "chpr2_" %%CHPR2 %CHPR2)
                      ("CROTG" "crotg_" %%CROTG %CROTG)
                      ("CSCAL" "cscal_" %%CSCAL %CSCAL)
                      ("CSROT" "csrot_" %%CSROT %CSROT)
                      ("CSSCAL" "csscal_" %%CSSCAL %CSSCAL)
                      ("CSWAP" "cswap_" %%CSWAP %CSWAP)
                      ("CSYMM" "csymm_" %%CSYMM %CSYMM)
                      ("CSYR2K" "csyr2k_" %%CSYR2K %CSYR2K)
                      ("CSYRK" "csyrk_" %%CSYRK %CSYRK)
                      ("CTBMV" "ctbmv_" %%CTBMV %CTBMV)
                      ("CTBSV" "ctbsv_" %%CTBSV %CTBSV)
                      ("CTPMV" "ctpmv_" %%CTPMV %CTPMV)
                      ("CTPSV" "ctpsv_" %%CTPSV %CTPSV)
                      ("CTRMM" "ctrmm_" %%CTRMM %CTRMM)
                      ("CTRMV" "ctrmv_" %%CTRMV %CTRMV)
                      ("CTRSM" "ctrsm_" %%CTRSM %CTRSM)
                      ("CTRSV" "ctrsv_" %%CTRSV %CTRSV)
                      ("DASUM" "dasum_" %%DASUM %DASUM)
                      ("DAXPY" "daxpy_" %%DAXPY %DAXPY)
                      ("DCABS1" "dcabs1_" %%DCABS1 %DCABS1)
                      ("DCOPY" "dcopy_" %%DCOPY %DCOPY)
                      ("DDOT" "ddot_" %%DDOT %DDOT)
                      ("DGBMV" "dgbmv_" %%DGBMV %DGBMV)
                      ("DGEMM" "dgemm_" %%DGEMM %DGEMM)
                      ("DGEMV" "dgemv_" %%DGEMV %DGEMV)
                      ("DGER" "dger_" %%DGER %DGER)
                      ("DNRM2" "dnrm2_" %%DNRM2 %DNRM2)
                      ("DROT" "drot_" %%DROT %DROT)
                      ("DROTG" "drotg_" %%DROTG %DROTG)
                      ("DROTM" "drotm_" %%DROTM %DROTM)
                      ("DROTMG" "drotmg_" %%DROTMG %DROTMG)
                      ("DSBMV" "dsbmv_" %%DSBMV %DSBMV)
                      ("DSCAL" "dscal_" %%DSCAL %DSCAL)
                      ("DSDOT" "dsdot_" %%DSDOT %DSDOT)
                      ("DSPMV" "dspmv_" %%DSPMV %DSPMV)
                      ("DSPR" "dspr_" %%DSPR %DSPR)
                      ("DSPR2" "dspr2_" %%DSPR2 %DSPR2)
                      ("DSWAP" "dswap_" %%DSWAP %DSWAP)
                      ("DSYMM" "dsymm_" %%DSYMM %DSYMM)
                      ("DSYMV" "dsymv_" %%DSYMV %DSYMV)
                      ("DSYR" "dsyr_" %%DSYR %DSYR)
                      ("DSYR2" "dsyr2_" %%DSYR2 %DSYR2)
                      ("DSYR2K" "dsyr2k_" %%DSYR2K %DSYR2K)
                      ("DSYRK" "dsyrk_" %%DSYRK %DSYRK)
                      ("DTBMV" "dtbmv_" %%DTBMV %DTBMV)
                      ("DTBSV" "dtbsv_" %%DTBSV %DTBSV)
                      ("DTPMV" "dtpmv_" %%DTPMV %DTPMV)
                      ("DTPSV" "dtpsv_" %%DTPSV %DTPSV)
                      ("DTRMM" "dtrmm_" %%DTRMM %DTRMM)
                      ("DTRMV" "dtrmv_" %%DTRMV %DTRMV)
                      ("DTRSM" "dtrsm_" %%DTRSM %DTRSM)
                      ("DTRSV" "dtrsv_" %%DTRSV %DTRSV)
                      ("DZASUM" "dzasum_" %%DZASUM %DZASUM)
                      ("DZNRM2" "dznrm2_" %%DZNRM2 %DZNRM2)
                      ("ICAMAX" "icamax_" %%ICAMAX %ICAMAX)
                      ("IDAMAX" "idamax_" %%IDAMAX %IDAMAX)
                      ("ISAMAX" "isamax_" %%ISAMAX %ISAMAX)
                      ("IZAMAX" "izamax_" %%IZAMAX %IZAMAX)
                      ("LSAME" "lsame_" %%LSAME %LSAME)
                      ("SASUM" "sasum_" %%SASUM %SASUM)
                      ("SAXPY" "saxpy_" %%SAXPY %SAXPY)
                      ("SCABS1" "scabs1_" %%SCABS1 %SCABS1)
                      ("SCASUM" "scasum_" %%SCASUM %SCASUM)
                      ("SCNRM2" "scnrm2_" %%SCNRM2 %SCNRM2)
                      ("SCOPY" "scopy_" %%SCOPY %SCOPY)
                      ("SDOT" "sdot_" %%SDOT %SDOT)
                      ("SDSDOT" "sdsdot_" %%SDSDOT %SDSDOT)
                      ("SGBMV" "sgbmv_" %%SGBMV %SGBMV)
                      ("SGEMM" "sgemm_" %%SGEMM %SGEMM)
                      ("SGEMV" "sgemv_" %%SGEMV %SGEMV)
                      ("SGER" "sger_" %%SGER %SGER)
                      ("SNRM2" "snrm2_" %%SNRM2 %SNRM2)
                      ("SROT" "srot_" %%SROT %SROT)
                      ("SROTG" "srotg_" %%SROTG %SROTG)
                      ("SROTM" "srotm_" %%SROTM %SROTM)
                      ("SROTMG" "srotmg_" %%SROTMG %SROTMG)
                      ("SSBMV" "ssbmv_" %%SSBMV %SSBMV)
                      ("SSCAL" "sscal_" %%SSCAL %SSCAL)
                      ("SSPMV" "sspmv_" %%SSPMV %SSPMV)
                      ("SSPR" "sspr_" %%SSPR %SSPR)
                      ("SSPR2" "sspr2_" %%SSPR2 %SSPR2)
                      ("SSWAP" "sswap_" %%SSWAP %SSWAP)
                      ("SSYMM" "ssymm_" %%SSYMM %SSYMM)
                      ("SSYMV" "ssymv_" %%SSYMV %SSYMV)
                      ("SSYR" "ssyr_" %%SSYR %SSYR)
                      ("SSYR2" "ssyr2_" %%SSYR2 %SSYR2)
                      ("SSYR2K" "ssyr2k_" %%SSYR2K %SSYR2K)
                      ("SSYRK" "ssyrk_" %%SSYRK %SSYRK)
                      ("STBMV" "stbmv_" %%STBMV %STBMV)
                      ("STBSV" "stbsv_" %%STBSV %STBSV)
                      ("STPMV" "stpmv_" %%STPMV %STPMV)
                      ("STPSV" "stpsv_" %%STPSV %STPSV)
                      ("STRMM" "strmm_" %%STRMM %STRMM)
                      ("STRMV" "strmv_" %%STRMV %STRMV)
                      ("STRSM" "strsm_" %%STRSM %STRSM)
                      ("STRSV" "strsv_" %%STRSV %STRSV)
                      ("XERBLA" "xerbla_" %%XERBLA %XERBLA)
                      ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY
                       %XERBLA_ARRAY)
                      ("ZAXPY" "zaxpy_" %%ZAXPY %ZAXPY)
                      ("ZCOPY" "zcopy_" %%ZCOPY %ZCOPY)
                      ("ZDOTC" "zdotc_" %%ZDOTC %ZDOTC)
                      ("ZDOTU" "zdotu_" %%ZDOTU %ZDOTU)
                      ("ZDROT" "zdrot_" %%ZDROT %ZDROT)
                      ("ZDSCAL" "zdscal_" %%ZDSCAL %ZDSCAL)
                      ("ZGBMV" "zgbmv_" %%ZGBMV %ZGBMV)
                      ("ZGEMM" "zgemm_" %%ZGEMM %ZGEMM)
                      ("ZGEMV" "zgemv_" %%ZGEMV %ZGEMV)
                      ("ZGERC" "zgerc_" %%ZGERC %ZGERC)
                      ("ZGERU" "zgeru_" %%ZGERU %ZGERU)
                      ("ZHBMV" "zhbmv_" %%ZHBMV %ZHBMV)
                      ("ZHEMM" "zhemm_" %%ZHEMM %ZHEMM)
                      ("ZHEMV" "zhemv_" %%ZHEMV %ZHEMV)
                      ("ZHER" "zher_" %%ZHER %ZHER)
                      ("ZHER2" "zher2_" %%ZHER2 %ZHER2)
                      ("ZHER2K" "zher2k_" %%ZHER2K %ZHER2K)
                      ("ZHERK" "zherk_" %%ZHERK %ZHERK)
                      ("ZHPMV" "zhpmv_" %%ZHPMV %ZHPMV)
                      ("ZHPR" "zhpr_" %%ZHPR %ZHPR)
                      ("ZHPR2" "zhpr2_" %%ZHPR2 %ZHPR2)
                      ("ZROTG" "zrotg_" %%ZROTG %ZROTG)
                      ("ZSCAL" "zscal_" %%ZSCAL %ZSCAL)
                      ("ZSWAP" "zswap_" %%ZSWAP %ZSWAP)
                      ("ZSYMM" "zsymm_" %%ZSYMM %ZSYMM)
                      ("ZSYR2K" "zsyr2k_" %%ZSYR2K %ZSYR2K)
                      ("ZSYRK" "zsyrk_" %%ZSYRK %ZSYRK)
                      ("ZTBMV" "ztbmv_" %%ZTBMV %ZTBMV)
                      ("ZTBSV" "ztbsv_" %%ZTBSV %ZTBSV)
                      ("ZTPMV" "ztpmv_" %%ZTPMV %ZTPMV)
                      ("ZTPSV" "ztpsv_" %%ZTPSV %ZTPSV)
                      ("ZTRMM" "ztrmm_" %%ZTRMM %ZTRMM)
                      ("ZTRMV" "ztrmv_" %%ZTRMV %ZTRMV)
                      ("ZTRSM" "ztrsm_" %%ZTRSM %ZTRSM)
                      ("ZTRSV" "ztrsv_" %%ZTRSV %ZTRSV)))

(COMMON-LISP:EXPORT
 '(%CAXPY %CCOPY %CDOTC %CDOTU %CGBMV %CGEMM %CGEMV %CGERC %CGERU %CHBMV %CHEMM
   %CHEMV %CHER %CHER2 %CHER2K %CHERK %CHPMV %CHPR %CHPR2 %CROTG %CSCAL %CSROT
   %CSSCAL %CSWAP %CSYMM %CSYR2K %CSYRK %CTBMV %CTBSV %CTPMV %CTPSV %CTRMM
   %CTRMV %CTRSM %CTRSV %DASUM %DAXPY %DCABS1 %DCOPY %DDOT %DGBMV %DGEMM %DGEMV
   %DGER %DNRM2 %DROT %DROTG %DROTM %DROTMG %DSBMV %DSCAL %DSDOT %DSPMV %DSPR
   %DSPR2 %DSWAP %DSYMM %DSYMV %DSYR %DSYR2 %DSYR2K %DSYRK %DTBMV %DTBSV %DTPMV
   %DTPSV %DTRMM %DTRMV %DTRSM %DTRSV %DZASUM %DZNRM2 %ICAMAX %IDAMAX %ISAMAX
   %IZAMAX %LSAME %SASUM %SAXPY %SCABS1 %SCASUM %SCNRM2 %SCOPY %SDOT %SDSDOT
   %SGBMV %SGEMM %SGEMV %SGER %SNRM2 %SROT %SROTG %SROTM %SROTMG %SSBMV %SSCAL
   %SSPMV %SSPR %SSPR2 %SSWAP %SSYMM %SSYMV %SSYR %SSYR2 %SSYR2K %SSYRK %STBMV
   %STBSV %STPMV %STPSV %STRMM %STRMV %STRSM %STRSV %XERBLA %XERBLA_ARRAY
   %ZAXPY %ZCOPY %ZDOTC %ZDOTU %ZDROT %ZDSCAL %ZGBMV %ZGEMM %ZGEMV %ZGERC
   %ZGERU %ZHBMV %ZHEMM %ZHEMV %ZHER %ZHER2 %ZHER2K %ZHERK %ZHPMV %ZHPR %ZHPR2
   %ZROTG %ZSCAL %ZSWAP %ZSYMM %ZSYR2K %ZSYRK %ZTBMV %ZTBSV %ZTPMV %ZTPSV
   %ZTRMM %ZTRMV %ZTRSM %ZTRSV)
 '#:MAGICL.BLAS-CFFI)

;;; End of file.
